home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Alice - An Interactive Museum
/
Alice - An Interactive Museum (1994)(Toshiba EMI)[PC-Mac].iso
/
pc
/
msstp
/
setup.mst
< prev
next >
Wrap
Text File
|
1994-10-31
|
4KB
|
153 lines
'**************************************************************************
'* MSSetup Toolkit Alice
'**************************************************************************
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
''Dialog ID's
CONST WELCOME = 100
CONST ASKQUITE = 200
CONST ASKQUITJ = 250
CONST DESTPATHJ = 300
CONST DESTPATHE = 350
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST OPTIONS = 800
CONST APPHELP = 900
CONST CHECK = 2500
CONST CHECKJ = 2550
CONST BADPATH = 6400
CONST ENDING = 8000
CONST ENDINGJ = 8050
''Bitmap ID
CONST LOGO = 1
GLOBAL DEST$ ''Default destination directory.
GLOBAL OPTCUR$ ''Option selection from option dialog.
DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
INIT:
CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
lng$ = GetIniKeyString("win.ini", "intl", "sLanguage")
IF lng$ = "jpn" THEN
title$ = "Alice Setup"
dlg% = DESTPATHJ
dlge% = ASKQUITJ
ELSE
title$ = "Alice Setup"
dlg% = DESTPATHE
dlge% = ASKQUITE
END IF
SetBitmap CUIDLL$, LOGO
SetTitle title$
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
END IF
ReadInfFile szInf$
szWinDir$ = GetWindowsDir()
szRoot$ = GetSymbolValue("STF_SRCDIR")
GETPATH:
SetSymbolValue "EditTextIn", "C:\"
SetSymbolValue "EditFocus", "END"
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", APPHELP, HELPPROC$)
DEST$ = GetSymbolValue("EditTextOut")
IF NOT sz$ = "CONTINUE" THEN
GOTO QUIT
END IF
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
szRoot2$ = MID$(szRoot$, 1, 2)
CreateIniKeyValue szWinDir$+"alice.ini", "Alice", "DriverName", szRoot2$, cmoOverwrite
SrcDir$ = GetSymbolValue("STF_SRCDIR")
AddSectionFilesToCopyList "Files", SrcDir$, DEST$
CopyFilesInCopyList
CreateProgmanGroup "SYNERGY", "SYNERGY", cmoNone
ShowProgmanGroup "SYNERGY", 1, cmoNone
CreateProgmanItem "SYNERGY", "Alice", MakePath(DEST$,"Alice_w\Alice.EXE"), MakePath(DEST$,"Alice_w\Alice.ico")+",ICON_1,,,"+szRoot$+"data", cmoOverwrite
CreateProgmanItem "SYNERGY", "Alice Read Me", MakePath(DEST$,"Alice_w\read.exe"), MakePath(DEST$,"Alice_w\RADEME.ico")+",ICON_1,,,"+szRoot$+"alice_w", cmoOverwrite
CreateProgmanItem "SYNERGY", "Follow Me", MakePath(DEST$,"Alice_w\follow.EXE"), MakePath(DEST$,"Alice_w\Alice.ico")+",ICON_1,,,"+szRoot$+"data", cmoOverwrite
'' sz$ = UIStartDlg(CUIDLL$, dlge%, "FInfo0DlgProc", APPHELP, HELPPROC$)
QUIT:
END
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")
'** szFile$ - filename to append to directory
'** Returns:
'** Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
IF szDir$ = "" THEN
MakePath = szFile$
ELSEIF szFile$ = "" THEN
MakePath = szDir$
ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
MakePath = szDir$ + szFile$
ELSE
MakePath = szDir$ + "\" + szFile$
END IF
END FUNCTION
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, dlge%, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN